xmlfile = xmlParse("pubmed_sample.xml")
xmltop = xmlRoot(xmlfile)
xmlName(xmltop[[1]])
xmlfile = xmlParse("pubmed_sample.xml")
xmltop = xmlRoot(xmlfile)
class(xmltop)
xmlName(xmltop[[1]])
source('~/study/ТОИ/lab_1_2/script.R')
source('~/study/ТОИ/lab_1_2/script.R')
source('~/study/ТОИ/lab_1_2/script.R')
source('~/study/ТОИ/lab_1_2/script.R')
source('~/.active-rstudio-document')
source('~/.active-rstudio-document')
source('~/study/ТОИ/lab_1_2/script.R')
install(gdata)
install("gdata"")
\
;
source('~/study/ТОИ/lab_1_2/script.R')
source('~/study/ТОИ/lab_1_2/script.R')
source('~/study/ТОИ/lab_1_2/script.R')
end
quit
eixt
;;a
||||d\s
install.packages("gdata")
source('~/study/ТОИ/lab_1_2/script.R')
source('~/study/ТОИ/lab_1_2/script.R')
source('~/study/ТОИ/lab_1_2/script.R')
source('~/study/ТОИ/lab_1_2/script.R')
source('~/study/ТОИ/lab_1_2/script.R')
source('~/study/ТОИ/lab_1_2/script.R')
source('~/study/ТОИ/lab_1_2/script.R')
source('~/study/ТОИ/lab_1_2/script.R')
install.packages("xlsx")
source('~/study/ТОИ/lab_1_2/script.R')
source('~/study/ТОИ/lab_1_2/script.R')
source('~/study/ТОИ/lab_1_2/script.R')
source('~/study/ТОИ/lab_1_2/script.R')
library(xlsx)
dat = read.xlsx("DATA.gov_NGAP.xlsx", 1,
startRow=18, endRow=22,
startColumn=7, endColumn=12)
for (i in 1:length(dat)) {
dat[i]
}
dat
length(dat)
dat[0]
dat[1]
dat[2]
dat[3]
dat[17]
dat[0
]
dat[0][0]
dat[0][1]
dat[0].
dat
dat[['StateAbbrev']]
dat[['StateAbbrev']][0]
dat[['StateAbbrev'][0]]
dat[['StateAbbrev']][0]
dat[['StateAbbrev']][1]
dat[['StateAbbrev']][2]
dat[['StateAbbrev']][3]
dat[['StateAbbrev']][4]
dat[[0]][4]
dat[[1][4]
dat[1][4]
dat[[1]][4]
source('~/study/ТОИ/lab_1_2/script.R')
source('~/study/ТОИ/lab_1_2/script.R')
dat[[1]][4]
dat
source('~/study/ТОИ/lab_1_2/script.R')
source('~/study/ТОИ/lab_1_2/script.R')
source('~/study/ТОИ/lab_1_2/script.R')
source('~/study/ТОИ/lab_1_2/script.R')
source('~/.active-rstudio-document')
source('~/study/ТОИ/lab_1_2/script.R')
source('~/study/ТОИ/lab_1_2/script.R')
packages.install("XLConnect")
package.install("XLConnect")
package.installs("XLConnect")
packages.installs("XLConnect")
install.package("XLConnect")
install.packages("XLConnect")
source('~/study/ТОИ/lab_1_2/script.R')
source('~/study/ТОИ/lab_1_2/script.R')
source('~/study/ТОИ/lab_1_2/script.R')
source('~/study/ТОИ/lab_1_2/script.R')
source('~/study/ТОИ/lab_1_2/script.R')
source('~/study/ТОИ/lab_1_2/script.R')
source('~/study/ТОИ/lab_1_2/script.R')
source('~/study/ТОИ/lab_1_2/script.R')
source('~/study/ТОИ/lab_1_2/script.R')
source('~/study/ТОИ/lab_1_2/script.R')
source('~/study/ТОИ/lab_1_2/script.R')
source('~/study/ТОИ/lab_1_2/script.R')
source('~/.active-rstudio-document')
dat
source('~/.active-rstudio-document')
source('~/study/ТОИ/lab_1_2/script.R')
source('~/.active-rstudio-document')
source('~/study/ТОИ/lab_1_2/script.R')
source('~/study/ТОИ/lab_1_2/script.R')
source('~/study/ТОИ/lab_1_2/script.R')
source('~/study/ТОИ/lab_1_2/script.R')
source('~/study/ТОИ/lab_1_2/script.R')
source('~/study/ТОИ/lab_1_2/script.R')
source('~/study/ТОИ/lab_1_2/script.R')
source('~/study/ТОИ/lab_1_2/script.R')
source('~/study/ТОИ/lab_1_2/script.R')
sheets
sheet
dat
dat[0]
dat['0]
''
'
source('~/study/ТОИ/lab_1_2/script.R')
source('~/.active-rstudio-document')
source('~/study/ТОИ/lab_1_2/script.R')
source('~/study/ТОИ/lab_1_2/script.R')
source('~/study/ТОИ/lab_1_2/script.R')
source('~/study/ТОИ/lab_1_2/script.R')
source('~/study/ТОИ/lab_1_2/script.R')
source('~/study/ТОИ/lab_1_2/script.R')
file.exists("DATA.gov_NGAP.xlsx")
library(XLConnect)
library(xlsx)
theData <- readWorksheet(loadWorkbook("DATA.gov_NGAP.xlsx"),sheet=1)
library(XLConnect)
library(xlsx)
theData <- readColumns(loadWorkbook("DATA.gov_NGAP.xlsx"),sheet=1)
library(XLConnect)
library(xlsx)
theData <- readColumns(readWorksheet(loadWorkbook("DATA.gov_NGAP.xlsx"),sheet=1))
source('~/study/ТОИ/lab_1_2/script.R')
dat
source('~/study/ТОИ/lab_1_2/script.R')
dat
source('~/study/ТОИ/lab_1_2/script.R')
dat
dat[]
dat[[1]]
length(dat[[1]])
source('~/study/ТОИ/lab_1_2/script.R')
for (col in 1:5) {
for (row in 1:length(dat[[col]])) {
dat[[col]]
}
}
for (col in 1:5) {
for (row in 1:length(dat[[col]])) {
dat[[col]]
}
}
dat[[1]]
dat[[1]][1]
dat[[1]][2]
source('~/study/ТОИ/lab_1_2/script.R')
max
source('~/study/ТОИ/lab_1_2/script.R')
max
source('~/study/ТОИ/lab_1_2/script.R')
source('~/.active-rstudio-document')
source('~/study/ТОИ/lab_1_2/script.R')
source('~/study/ТОИ/lab_1_2/script.R')
source('~/study/ТОИ/lab_1_2/script.R')
dat <- readWorksheetFromFile(file = "DATA.gov_NGAP.xlsx",
sheet = 1,
header = TRUE,
startRow = 18, endRow = 22,
startCol = 7, endCol = 12)
max <- 0
for (col in 1:5) {
for (row in 1:length(dat[[col]])) {
if (dat[[col]][row] > max) {
max <- dat[[col]][row]
}
}
}
print(max)
source('~/study/ТОИ/lab_1_2/script.R')
source('~/study/ТОИ/lab_1_2/script.R')
source('~/study/ТОИ/lab_1_2/script.R')
source('~/study/ТОИ/lab_1_2/script.R')
