class1_3.R

dta <- read.table("C:/tmp/student2017.txt",header=T,stringsAsFactor=FALSE)
str(dta)

## 'data.frame':    16 obs. of  1 variable:
##  $ ID: chr  "D84057058" "C44035023" "D84041162" "D84046081" ...

dta <-data.frame (ID = c(dta[1:14, ],"U76067010",dta[15:16, ]))
dta

##           ID
## 1  D84057058
## 2  C44035023
## 3  D84041162
## 4  D84046081
## 5  D84021057
## 6  U36037025
## 7  U36041074
## 8  U36041090
## 9  U36051087
## 10 U36031118
## 11 U36041082
## 12 U76051019
## 13 U76054025
## 14 U76064062
## 15 U76067010
## 16 U76041064
## 17 U76041080

dta <- women
str(dta)

## 'data.frame':    15 obs. of  2 variables:
##  $ height: num  58 59 60 61 62 63 64 65 66 67 ...
##  $ weight: num  115 117 120 123 126 129 132 135 139 142 ...

data.entry(dta)
class(dta)

## [1] "list"

dta <- data.frame
class(dta)

## [1] "function"

plot(women)

pacman::p_load(scholar)
dta <- get_citation_history('ZSAAAsQAAAAJ')
plot(dta, xlab="Year", ylab="Citations", type='h', lwd=2, xaxt="n", xlim = c(2010, 2019), ylim = c(0, 400))