<commit_before><html>
    <body>
        <h2>KinOath Web Application Example Page</h2>
        <b>Workspaces and Uploaded Files</b><br>
        <p>
            <a href="kinoath/kinspace">list work spaces</a>
        </p>
        <b>HTML output for viewing</b><br>
        <% String htmlUrlString = "kinoath/getkin/view?kts=EmB&kts=EmZM&kts=EmM&kts=EmF&kts=EmS&kts=EmDM"; %>
        <p>
            <a href="<%= htmlUrlString %>"><%= htmlUrlString %></a>
        </p>
        <b>CSV output for use in R</b><br>
        <% // String csvUrlString = "kinoath/getkin/csv?kts=EmB&kts=EmZ&kts=EmM&kts=EmF&kts=EmS&kts=EmD"; %>
        <% String csvUrlString = "kinoath/getkin/csv?kts=EmM&kts=EmF&kts=EmS&kts=EmD"; %>
        <p>
            dataFrame<- read.table("<a href="<%= csvUrlString %>"><%= request.getScheme() + "://" + request.getServerName() + ":" + request.getServerPort()+request.getContextPath() + "/" %><%= csvUrlString %></a>",header=T)<br>
            library(kinship)<br>
            attach(dataFrame)<br>
            pedigreeObj <- pedigree(id, dadid, momid, sex, affected) <!-- , status, relations --><br>
            plot(pedigreeObj)<br>
        </p>
        Note that the pedigree package requires that there must always be two parents or none, this means that EM without EM will not be usable in that package.<br>
        Also the pedigree package supports status and relations but these are not output from this service yet.<br>
    </body>
</html>
<commit_msg>Updated the R data example of the rest service.<commit_after><html>
    <body>
        <% String kinTypeString = "EmMD:1:|EmFD:1:|EmS:2:|EmWD:3:|EmD:3:|EmWS:2:|EmZ:1:"; %>
        <h2>KinOath Web Application Example Page</h2>
        <b>Workspaces and Uploaded Files</b><br>
        <p>
            <a href="kinoath/kinspace">list work spaces</a>
        </p>
        <b>HTML output for viewing</b><br>
        <% String htmlUrlString = "kinoath/getkin/view?kts=" + kinTypeString; %>
        <p>
            <a href="<%= htmlUrlString %>"><%= htmlUrlString %></a>
        </p>
        <b>CSV output for use in R</b><br>
        <% // String csvUrlString = "kinoath/getkin/csv?kts=EmB&kts=EmZ&kts=EmM&kts=EmF&kts=EmS&kts=EmD"; %>
        <% String csvUrlString = "kinoath/getkin/csv?kts=" + kinTypeString; %>
        <p>
            dataFrame<- read.table("<a href="<%= csvUrlString %>"><%= request.getScheme() + "://" + request.getServerName() + ":" + request.getServerPort()+request.getContextPath() + "/" %><%= csvUrlString %></a>",header=T)<br>
            library(kinship)<br>
            attach(dataFrame)<br>
            pedigreeObj <- pedigree(id, dadid, momid, sex, affected) <!-- , status, relations --><br>
            plot(pedigreeObj)<br>
        </p>
        Note that the pedigree package requires that there must always be two parents or none, this means that EM without EM will not be usable in that package.<br>
        Also the pedigree package supports status and relations but these are not output from this service yet.<br>
    </body>
</html>

{'fraction_non_alphanumeric': 0.1666118961551101, 'fraction_numerical': 0.003614853762734144, 'mean_word_length': 2.805, 'pattern_counts': {'":': 4, '<': 94, '<?xml version=': 0, '>': 90, 'https://': 0, 'lorem ipsum': 0, 'www.': 0, 'xml': 0}, 'pii_count': 0, 'substrings_counts': 0, 'word_list_counts': {'cursed_substrings.json': 0, 'profanity_word_list.json': 0, 'sexual_word_list.json': 0, 'zh_pornsignals.json': 0}}
{'dir': 'git-commits-cleaned', 'id': '3842884', 'n_tokens_mistral': 1084, 'n_tokens_neox': 1025, 'n_words': 239}