Projekt: Projekt
In stp4/stp25output: Output

Description Usage Arguments Details Value Examples

Ein R-File ruft die Interne Funktion Projekt_html() auf und ein Rmd-File Projekt_Rmd().

Einstellungen fuer .Rmd files hier werden keine Folder erstellt

End

Zuruecksetzen der Einstellungen und Aufruf des Browsers browser = getOption("browser")

Rechnung(): setzt ein Datum und Beendet mit Ende und stop die Auswertung

Methode

Methode, Materials, Research_Design, Measures Results, Demographic_Variables und Statistic sind Platzhalter Funktionen um den R-Code in verschiedenen Files aiszulagern.

Results(), Measures(), Materials(), usw Ueberschrift mit aufruf eies exteren R-Scripts.

Interne Funktion

get_scriptpath() Ausfuehrendes File finden Quelle: https://stackoverflow.com/questions/18000708/find-location-of-current-r-file

HTML_Start ist ein e Kopie von R2HTML

Projekt(
  myformat = "",
  Projektname = "Demo",
  datum = date(),
  fig_folder = "Fig",
  html_folder = "Results",
  OutDec = NULL,
  contrasts = c("contr.Treatment", "contr.poly"),
  css = TRUE,
  ...
)

Projekt_Rmd(myformat, Projektname, datum, OutDec, contrasts)

End(
  anhang = FALSE,
  browser = "C:/Program Files (x86)/Internet Explorer/iexplore.exe",
  output = options()$prompt[1] == "HTML> ",
  ...
)

Rechnung(datum = "")

Methode(h = "Methoden", x = NULL, file = NULL)

Materials(h = "Materialien", x = NULL, file = "(1) Get Data.R")

Research_Design(h = "Forschungs Design", x = NULL, file = NULL)

Measures(h = "Messinstrument", x = NULL, file = "(2) Measures.R")

Results(h = "Ergebnisse", x = NULL, file = NULL)

Demographic_Variables(
  h = "Deskriptive Analyse",
  x = NULL,
  file = "(3) Demographic.R"
)

Statistic(h = "Resultate", x = NULL, file = "(4) Analyse.R")

get_scriptpath()

HTML_Start(
  Projektname = "Demo",
  datum = date(),
  fig_folder = "Fig",
  html_folder = "Results",
  OutDec = NULL,
  contrasts = c("contr.Treatment", "contr.poly"),
  withprompt = "HTML> ",
  .extension = "html",
  .myDir = getwd(),
  .filename = cleansing_umlaute(Projektname),
  .output.dir = file.path(.myDir, html_folder),
  .HTML.file = file.path(.output.dir, paste(.filename, ".", .extension, sep = "")),
  .css.file = file.path(.output.dir, "layout.css")
)

HTML_End(browser = "iexplore")

`myformat`	HTML, Spin, Knit, Rpres oder Text. Spin ist knitr wobei die Ausgabe der Tabellen mit html erfolgt
`Projektname`	Bezeichnung des Projektes (gilt auch fuer die HTML Seite)
`datum`	Datum zur Dokumentation
`fig_folder, html_folder`	Folder bei html wenn ein ander Ort gewuenscht
`OutDec`	Komma oder Punkt
`contrasts`	default wie SPSS
`css`	css Eigense Format
`...`	weitere Objekte nicht benutzt
`anhang`	Ja/Nein
`browser`	Ie oder Chrome
`output`	TRUE oder FALSE
`h`	Ueberschrift
`x`	Character
`file`	auszufuerendes File

Start eines neuen Prpjekts, mit Projekt() werden die default Einstellungen (Kontraste) gesetzt sowie die Folder erstellt. Weiters wird die Ausgabe als HTML gesteuert. Weitere Optionen fuer die Formatierung koennen mit default_stp25_opt() gesetzt. Mit stp25_options koennen die Formatierungs-Optionen geaendert werden.

html-Pfad oder Projektname als Text

## Not run: 
# require(stpvers)

 Projekt()
     # R2HTML::HTMLChangeCss("gridR2HTML")
     # options(prompt="HTML> ")
     #  set_default_params(list(myURL = myURL))

 APA2(~. , hkarz)


#-- default options
set_my_options()
get_my_options()$apa.style$prozent

#-- Speicherort aendern
get_my_options()$fig_folder
set_my_options(fig_folder="Fig2/")
get_my_options()$fig_folder

#-- Format aendern
set_my_options(prozent=list(digits=c(1,0), style=2))

set_my_options(mittelwert=list(digits=c(1,0), plusmin_sign=TRUE))


#  APA2(~. , hkarz)
###Names2Language(c("Item", "Characteristics", "Statistics"  ), "de")


# options()$stp25$bez$f.value
 ### Names2Language(c("Pr..Chisq.", "F.value"))


#  hkarz2 <-Label(mutate(hkarz,
#  Lai=factor(lai),
#  x=NA),
#  Lai="1-Smoking Habits",
#  x =   "2-Supplement Intake",
#  tzell = " - to boost your performance" ) 

#  Tabelle2(  ~Lai+x[header]+tzell,  hkarz2  , APA=TRUE )
#  Tabelle2(  Lai+x[header]+tzell~gruppe, hkarz2 , test=TRUE, APA=TRUE, include.total=TRUE)
#  set_my_options(mittelwert=list(include_name=FALSE))
#  Tabelle2(  Lai+x[header]+tzell[median]~gruppe, hkarz2 , test=TRUE, APA=TRUE, include.total=TRUE)

#APA2(~. , hkarz)

 End()


## End(Not run)