На каком языке этот код?

John Zaicev написал(а) к All в Jun 17 14:39:15 по местному времени:

[√] Приветствую, All !

library(xtable)
library(openintro)
data(marioKart)
toss <- which(marioKart$totalPr > 80)
keep <- c("totalPr", "cond", "stockPhoto", "duration", "wheels", "shipSp")
d <- marioKart[-toss, keep]
d$stockPhoto <- (d$stockPhoto == "yes") + 0
d$cond <- (d$cond == "new") + 0
thisOne <- names(d) == "cond"
names(d)[thisOne] <- "condNew"
d$shipSp <- as.character(d$shipSp)
these <- d$shipSp %in% c("firstClass", "priority", "parcel", "media")
d$shipSp[these] <- "usps"
these <- d$shipSp %in% c("ups3Day", "upsGround")
d$shipSp[these] <- "ups"
these <- d$shipSp %in% c("other", "standard")
d$shipSp[these] <- "unknown"
d$shipSp <- as.factor(d$shipSp)
d <- d[,-which(colnames(d) == "shipSp")]

summary(lm(totalPr ~ ., d))
summary(lm(totalPr ~ condNew + stockPhoto + duration + wheels, d))
xtable(summary(lm(totalPr ~ condNew + stockPhoto + wheels, d)))
xtable(summary(fit <- lm(totalPr ~ condNew + wheels, d)))


fit1 <- lm(totalPr ~ duration + cond + stockPhoto + wheels, d)
fit2 <- lm(totalPr ~ cond + stockPhoto + wheels, d)
anova(fit1, fit2)

fit1 <- lm(totalPr ~ cond + stockPhoto, d)
fit2 <- lm(totalPr ~ stockPhoto, d)
anova(fit1, fit2)

Вроде бы ничего не забыл...
[√] До скорого, All !

▌║▐║│║▌║││║║ /http://adf.ly/1Y63НZ/
2║5080▌244║0 /P2Pirates@Mail.ru_/ _DreamLand laboratory

--- Моему первому компьютеру 9371 день (или 302 месяца)

Rinat H. Sadretdinow написал(а) к John Zaicev в Jun 17 15:04:40 по местному времени:

Нello John!

30 Jun 17 14:39, you wrote to All:

JZ> library(xtable)
JZ> library(openintro)
JZ> data(marioKart)

[...]

JZ> fit1 <- lm(totalPr ~ cond + stockPhoto, d)
JZ> fit2 <- lm(totalPr ~ stockPhoto, d)
JZ> anova(fit1, fit2)

Похоже на R, но могу и ошибаться. Я в R совсем не спец, видел его только в википедии да в ваших интернетах. Но очень похоже на то что видел.

Bye!

--- GoldED+/LNX 1.1.5-b20150715

John Zaicev написал(а) к Rinat H. Sadretdinow в Jun 17 17:14:41 по местному времени:

[√] Приветствую, Rinat !

30 Июн 17 15:04, Rinat Н. Sadretdinow ══ /John Zaicev/:

JZ>> fit1 <- lm(totalPr ~ cond + stockPhoto, d)
JZ>> fit2 <- lm(totalPr ~ stockPhoto, d)
JZ>> anova(fit1, fit2)

RS> Похоже на R, но могу и ошибаться. Я в R совсем не спец, видел его
RS> только в википедии да в ваших интернетах. Но очень похоже на то что
RS> видел.

Действительно, имена файлов имеют расширение R. Просто скачал какой-то файл OS2_source. Ковыряюсь вот. Могли бы это быть исходники ядра? Дык вроде они на Си...

Вроде бы ничего не забыл...
[√] До скорого, Rinat !

▌║▐║│║▌║││║║ /http://adf.ly/1Y63НZ/
2║5080▌244║0 /P2Pirates@Mail.ru_/ _DreamLand laboratory

--- Моему первому компьютеру 9371 день (или 302 месяца)

Rinat H. Sadretdinow написал(а) к John Zaicev в Jun 17 16:52:24 по местному времени:

Нello John!

30 Jun 17 17:14, you wrote to me:

RS>> Похоже на R, но могу и ошибаться.

JZ> Действительно, имена файлов имеют расширение R. Просто скачал
JZ> какой-то файл OS2_source. Ковыряюсь вот. Могли бы это быть исходники
JZ> ядра? Дык вроде они на Си...

Исходниками ядра это не может быть в принципе. R это статистический язык, он к ядру никаким боком. Опять скажу наверное какую-нибудь глупость, но мне почему-то кажется что он гораздо ближе к Wolfram, Matlab и 1С. А какое ядро на 1С?

Bye!

--- GoldED+/LNX 1.1.5-b20150715

Michael Baryshnikov написал(а) к John Zaicev в Jul 17 14:59:32 по местному времени:

Нello, John!

JZ>>> fit1 <- lm(totalPr ~ cond + stockPhoto, d)
JZ>>> fit2 <- lm(totalPr ~ stockPhoto, d)
JZ>>> anova(fit1, fit2)
RS>> Похоже на R, но могу и ошибаться. Я в R совсем не спец, видел его
RS>> только в википедии да в ваших интернетах. Но очень похоже на то что
RS>> видел.
JZ> Действительно, имена файлов имеют расширение R. Просто скачал какой-то файл OS2_source. Ковыряюсь вот. Могли бы это быть исходники ядра? Дык вроде они на Си...

Спроси на канале, там тебе точно скажут. Что касается ядра Оси, то оно писано на плейн Ц и ассемблере. Ры и прочего там быть не должно.

С наилучшими пожеланиями, Michael Baryshnikov.

--- wfido