Hoď ma hore
prihlásenie:
Registrácia  |  Zabudnuté heslo
tu sa nachádzate: hlavná stránka  rôzne  téma
kategórie:  

R-ko

1
reakcií
907
prečítaní
Tému 29. marca 2017, 23:58 založil Sklovska.

podobné témy:

názov témy
posledná
reakcií
30. 03. 2017
1
11. 11. 2007
15
03. 07. 2016
0
15. 07. 2010
102
26. 05. 2011
98
 
 


1.
označiť príspevok

Sklovska
   29. 3. 2017, 23:58 avatar
ul.1A
funkcia <- function(n){
for(i in 1:n){
if(i %% 2 == 0){ print(i^2)}
else if((i %% 3 == 0) && (i %% 5 == 0)) {print(i^3)}
else {print(i)}
}
}
funkcia(7)
---------------------------------------------------------------
ul.2A
getwd()
dir.create("Zapocet1"
setwd("C:/Users/Sára/Documents/Zapocet1"
dir.create("data"
fileURL = "samplecsvs.s3.amazonaws.com Tento odkaz smeruje mimo DF.sk
download.file(fileURL, destfile = "./SalesJan2009.csv"
data = read.csv("./SalesJan2009.csv"
head(data, n = 10)
tail(data, n = 15)
data[1:5,2:3]
--------------------------------------------------------------
ul.3A
set.seed(10)
install.packages("data.table"
library(data.table)
tabulka = data.table(A=rnorm(10),B=1:10,C=10:1,D=rep(factor(c("a","b"),each = 5))
tabulka[[1]][2] = NA
tabulka[[1]][4] = NA
tabulka
tabulka[(which(tabulka$A != is.na(A))),mean(A)]
tabulka[,e:=B^2]
tabulka
tabulka[,f:=sum(B),by=D]
sort(tabulka$C)
tabulka[order(tabulka$C),]
--------------------------------------------------------------
ul.4A
library(datasets)
attach(infert)
boxplot(age ~ education, infert, col = "red", xlab = "Age", ylab = "Education", main = "infert"
abline(h = 30, lwd = 3, lty = 2, col = "blue"
library(lattice)
xyplot(stratum ~ age | education, data = infert)


2.
označiť príspevok

gabriel pb
   30. 3. 2017, 23:03 avatar
programovanie v kurze
váš príspevok

Pridávať príspevky môžu iba zaregistrovaní účastníci fóra.

Som zaregistrovaný

nick: heslo:
zostať trvalo prihlásený    
Nie som zaregistrovaný

Vaša prezývka:  

Po zaregistrovaní budete automaticky presmerovaní do tejto témy.

najnovšie príspevky na celom fóre

dnes, 13:18,  vouu angela vypada super
dnes, 13:16,  Prezident Kiska ako budúci premiér bude záruka očistenia od bolšan hnoja , dezinfošiek ,...
dnes, 13:07,  Asi takto...
dnes, 13:04,  Andulka takto...
dnes, 12:57,  gabo uži
dnes, 12:56,  https://scontent.fprg2-1.fna.fbcdn.net/v/t1.0-9/74490732_2493559440923304_4087738254999158784_n.j...
dnes, 12:54,  https://scontent.fprg2-1.fna.fbcdn.net/v/t1.0-9/76604989_177740423415459_6512646111369363456_n.jp...
dnes, 12:50,  Takých Kočnerov a pohrobkov bolševika je tu stovky , Je len na nás ako to vyriešime
dnes, 12:47,  https://scontent.fprg2-1.fna.fbcdn.net/v/t1.0-9/74888290_2466723870253482_1197678005883764736_n.j...
dnes, 12:46,  https://scontent.fprg2-1.fna.fbcdn.net/v/t1.0-9/74292083_2466321730293696_1446214427429830656_n.j...
dnes, 12:41,  A Rusko zase odpúšťa dlhy Afrike!!!!!!!!!!!!!!!!!...
dnes, 12:39,  Dedovia si zaslúžili krásu nevídanú!!!!!! V dedinke Spaskije Murzy si uctili hrdinov...
dnes, 12:37,  Poslankyňa Tatiana Sazonova (vládna strana Jednotné Rusko) pomáhala s odpratávaním snehu v...
dnes, 12:35,  https://scontent.fprg2-1.fna.fbcdn.net/v/t1.0-9/76920260_2467882226804313_1094669838128775168_n.j...
dnes, 12:34,  Dnes by to boli západné jablká a zajtra by nám tu pochodovali vojaci NATO!!!!...
dnes, 10:42,  Zase iba kecy bez dôkazov.....inak kauzy korupčné a poriadne boli aj za Dzurindu a spol. aj za...
dnes, 10:36,  Nic koniec celu tu sebranku 150 tich darmozracov zlodejov mafianov vrahov fetakov vlastizradcov...
dnes, 10:08,  Kazdodenne nam vlada dokazuje, ze nie je schopna spravovat statne peniaze, ze vsade sa vsetko...
dnes, 10:01,  „Keď k…t ukradol 4,2 milióna eur, za to sa platia iné peniaze, keď mu to pomôžeme...
dnes, 07:10,  1. Krtince.
neprehliadnite
df.sk na Facebooku
vyhľadávanie
 
Je milšie dostať kamienok z lásky, ako diamant z povinnosti.
Prevádzkuje df.sk | TOPlist
(54 751 bytes in 0,778 seconds)