IS
Угу - много вы знаете оптимических приборов способных ночью снять спектр звезды?. Ситемы навигации по звездам как раз работают по созвездиям. зная в моменте координаты которых - можно определить свое местоположение
Size: a a a
2020 June 14
IS
Собствено секстант пример такой ситемы
IS
Ну и собствено
IS
Похожий подход, только лучше
E
Посмотрите, пожалуйста, в чем моя ошибка.
test_data <- read.csv("https://stepic.org/media/attachments/course/724/salary.csv")
descriptive_stats <- function (dataset){
var<-names(which(sapply(test_data, is.factor)))
new_dataset<-group_by(dataset,{{var}})%>%
summarise (n=n(),mean=mean(na.rm=T),
sd=sd(na.rm = T), median=median(na.rm = T),
first_quartile=quantile(0,25, na.rm = T),
third_quartile=quantile( 0,75, na.rm = T),
na_values=sum(is.na()))
return(new_dataset)
}
descriptive_stats(test_data)IS
Посмотрите, пожалуйста, в чем моя ошибка.
test_data <- read.csv("https://stepic.org/media/attachments/course/724/salary.csv")
descriptive_stats <- function (dataset){
var<-names(which(sapply(test_data, is.factor)))
new_dataset<-group_by(dataset,{{var}})%>%
summarise (n=n(),mean=mean(na.rm=T),
sd=sd(na.rm = T), median=median(na.rm = T),
first_quartile=quantile(0,25, na.rm = T),
third_quartile=quantile( 0,75, na.rm = T),
na_values=sum(is.na()))
return(new_dataset)
}
descriptive_stats(test_data)Как вы интепретируете текст возникающей ошибки?
;
Здраствуйте!Плохо разбираюсь в построении нескольких графиков в р статистике.Помогите плиззз
;
Как построить три графика з разними цветами (cos x cos 2x cos 3x)з границами (-5:5)
a
Здраствуйте!Плохо разбираюсь в построении нескольких графиков в р статистике.Помогите плиззз
прочитайте правила чата, пожалуйста
a
Посмотрите, пожалуйста, в чем моя ошибка.
test_data <- read.csv("https://stepic.org/media/attachments/course/724/salary.csv")
descriptive_stats <- function (dataset){
var<-names(which(sapply(test_data, is.factor)))
new_dataset<-group_by(dataset,{{var}})%>%
summarise (n=n(),mean=mean(na.rm=T),
sd=sd(na.rm = T), median=median(na.rm = T),
first_quartile=quantile(0,25, na.rm = T),
third_quartile=quantile( 0,75, na.rm = T),
na_values=sum(is.na()))
return(new_dataset)
}
descriptive_stats(test_data)и учтите, что в новом R в
read.csv() по умолчанию векторы не превращаются больше в факторы. Так что вам придется добавить stringsAsFactors = TRUE в read.csv(). Но и еще много чего исправить, конечноЕТ
Есть уже смысл устанавливать 4.0.0, если не хочешь биться с багами и особенностями?
a
я что-то не столкнулся пока с багами
IS
Посмотрите, пожалуйста, в чем моя ошибка.
test_data <- read.csv("https://stepic.org/media/attachments/course/724/salary.csv")
descriptive_stats <- function (dataset){
var<-names(which(sapply(test_data, is.factor)))
new_dataset<-group_by(dataset,{{var}})%>%
summarise (n=n(),mean=mean(na.rm=T),
sd=sd(na.rm = T), median=median(na.rm = T),
first_quartile=quantile(0,25, na.rm = T),
third_quartile=quantile( 0,75, na.rm = T),
na_values=sum(is.na()))
return(new_dataset)
}
descriptive_stats(test_data)Попробуйте сначала просто скрипт написать который будет делать от и до задачу
E
Попробуйте сначала просто скрипт написать который будет делать от и до задачу
я написала, но понять не могу, как правильно обернуть это в функцию
test_data <- read.csv("https://stepic.org/media/attachments/course/724/salary.csv")
test_data %>%
group_by(gender, country) %>%
summarise (n=n(), mean=mean(salary,na.rm=T),
sd=sd(salary,na.rm = T), median=median(salary,na.rm = T),
first_quartile=quantile(salary, 0,25, na.rm = T),
third_quartile=quantile(salary, 0,75, na.rm = T),
na_values=sum(is.na(salary)))ГД
Есть уже смысл устанавливать 4.0.0, если не хочешь биться с багами и особенностями?
Да нет вроде багов и особенностей... Я просто перестал писать в начале каждого файла
options(stringsAsFactors = FALSE)E
Как вы интепретируете текст возникающей ошибки?
"Column
Ошибка выглядит так. Мне кажется, что это значит, что я группирую неправильно. Т.е. не по тем переменным, что существуют в R, а просто беру названия этих колонок, что не является привязкой к dataset
<chr> must be length 500 (the number of rows) or one, not 2"Ошибка выглядит так. Мне кажется, что это значит, что я группирую неправильно. Т.е. не по тем переменным, что существуют в R, а просто беру названия этих колонок, что не является привязкой к dataset
E
я немного изменила код. Но все равно ошибка. Что я делаю неправильно?
test_data <- read.csv("https://stepic.org/media/attachments/course/724/salary.csv", stringsAsFactors = TRUE)
descriptive_stats <- function (dataset){
dataset_num<-select_if(dataset, is.numeric)
factor_vars <-names(which(sapply(dataset, is.factor)))
dataset %>%
group_by({{factor_vars}})%>%
summarise (n=n(),mean=mean(dataset_num,na.rm=T),
sd=sd(dataset_num,na.rm = T), median=median(dataset_num,a.rm = T),
first_quartile=quantile(dataset_num,0,25, na.rm = T),
third_quartile=quantile(dataset_num, 0,75, na.rm = T),
na_values=sum(is.na(dataset_num)))
return(dataset)
}
descriptive_stats(test_data)E
Переслано от EK479
Посмотрите, пожалуйста, в чем моя ошибка.
test_data <- read.csv("https://stepic.org/media/attachments/course/724/salary.csv")
descriptive_stats <- function (dataset){
var<-names(which(sapply(test_data, is.factor)))
new_dataset<-group_by(dataset,{{var}})%>%
summarise (n=n(),mean=mean(na.rm=T),
sd=sd(na.rm = T), median=median(na.rm = T),
first_quartile=quantile(0,25, na.rm = T),
third_quartile=quantile( 0,75, na.rm = T),
na_values=sum(is.na()))
return(new_dataset)
}
descriptive_stats(test_data)IS
Попробуйте прописать для начала группировку хардкором и посмотреть работает ли остальная часть.