day <- c('Понедельник','Вторник','Среда','Четверг','Пятница','Суббота','Воскресенье')
Nd <- 'Среда'
if (is.character(Nd) == TRUE)
		{
		for (j in length(day))
			{
			if (Nd == day[j])
				{
				Nd1<-j
				#break
				}
			#else {Nd1 <- 1}
			}
		}