| print("Functions F1") | |
| def F1(): | |
| print("F1 Run") |
| f = lambda : print('hello world') |
| print('Hello World') |
| txt2 | month | |
|---|---|---|
| <<NO TEXT FOUND FOR SPECIFIED DATE>> | 12 | |
| apoo od f n@N2enuo ttc aEon0t 0THOTesv1t tioil0,s ct'en O1t"to i cdCert.piawob Cd epEoRu gE h oIl i t coerdee VtR sou'eoet n crnrho C .ik/e lkreigypMn Rf s troCokeecT 0es nCoc4 oDn O oerlisd lo'ontom/ei i9Ir,2hgu,bt n/r kr20ta wtontl iriiC e Paots eu 0e12y1esenp tcaat )n eniTseon 4tE2l oCotoaN0 encuRi n eu e nrsroidNcinwp -t iECr9( gep2. k oiRub01gT'n1i Irmn ecT T.0'pbCu" 0w pt"Fso.f rdneeTs UW.nnl/s2tt uneTk't itri,ig nO.eth tere0eci 0 a pl( ' "rtvlbOntuftfr tn Onyn t1n10thtt i d eoe a rHc CtdorltCniwmfbao9 rdC vtecf pl nTOahf10ornet wueotoT o .s | 12 | |
| <<NO TEXT FOUND FOR SPECIFIED DATE>> | 12 |
emailto: psteiner@umd.edu student: Francis Smart fsmart@gmail.com EDMS769G
# Text Network graph
# Student Ability _______________________
# / | \_____
# / | Public/Private Transport \
# ↓ ↓ ↓ ↘
| # Estimating Weekly consumption from periodic purchasing data | |
| library(dplyr) | |
| library(data.table) | |
| library(reshape) | |
| library(tidyr) | |
| library(ggplot2) | |
| # Day Purchase |
| rm(list=ls()) | |
| library(data.table) | |
| library(dplyr) | |
| library(ggplot2) | |
| setwd('Z:/Data/FEC') | |
| dsum <- function(...) dplyr::summarize(...) | |
| to.data.table <- function(x) {(class(x) <- class(data.table())) ;x} |
| rm(list=ls()) | |
| library(data.table) | |
| library(dplyr) | |
| library(ggplot2) | |
| library(scales) | |
| setwd('Z:/Data/FEC') | |
| dsum <- function(...) dplyr::summarize(...) |
| # adapted from John Fox's numbers2words function | |
| require(magrittr); require(Rmpfr) | |
| make.digits <- function(x) { | |
| # This is a function breaks an input number x into the positive (left) | |
| # and negative(right) elements and returns these as numbers | |
| x <- toString(x) | |
| negative <- substr(x,1,1)=="-" | |
| if (negative) x <- substring(x,2) |
| library('rgl'); library('magrittr') | |
| cube <- function(x=0,y=0,z=0, bordered=TRUE, | |
| filled = TRUE, lwd=2, scale=1, | |
| fillcol = gray(.95), | |
| bordercol ='black', ...) { | |
| mycube <- cube3d() | |
| # Reduce size to unit |