Posts

Showing posts from April 19, 2019

البابا المزيف

Image
هذه المقالة تعتمد اعتماداً كاملاً أو شبه كامل على مصدر وحيد ، رجاء ساعد في تحسين هذه المقالة بإضافة مصادر مناسبة. (ديسمبر 2018) تكريس البابا المزيف بنديكتوس الثالث عشر البابا المزيف (باللاتينية:antipapa) أو البابا المنافس أو بابا الزور أو البابا المُعادي [1] ، هي الصفة التي أطلقت على عدة رجال في فترات مختلفة من تاريخ الكنيسة الرومانية الكاثوليكية، ادعوا لأنفسهم لقب ووظيفة أسقف روما، معارضين بذلك أحقية وشرعية من تعتبره الكنيسة البابا الحقيقي. من أهم الباباوات المزورين عبر التاريخ إكليمندس الثالث ونيكولاس الخامس وإكليمندس السابع وبنديكتوس الثالث عشر آمادوس الخامس البابا المزيف الأخير. مواضيع ذات صلة بابوية كاثوليكية مراجع ^ البابا المُعادي؛ البابا الزائف موسوعة المورد، منير البعلبكي، 1991 الموسوعة العربية المسيحية The Columbia Encyclopedia, Sixth Edition في كومنز صور وملفات عن: البابا المزيف بوابة المسيحية بوابة الفاتيكان بوابة كنيسة رومانية كاثوليكية بوابة أعلام بوابة روما هذه بذرة مقالة عن المسيحية بحاجة للتوسيع. شارك في تحري

إنشاء «أنتيوب فيليكس الخامس»

This page is only for reference, If you need detailed information, please check here

Convert a DataFrame into Adjacency/Weights Matrix in R

Image
7 I have a DataFrame, df . n is a column denoting the number of groups in the x column. x is a column containing the comma-separated groups. df <- data.frame(n = c(2, 3, 2, 2), x = c("a, b", "a, c, d", "c, d", "d, b")) > df n x 2 a, b 3 a, c, d 2 c, d 2 d, b I would like to convert this DataFrame into a weights matrix where the row and column names are the unique values of the groups in df$c , and the elements represent the number of times each of the groups appear together in df$c . The output should look like this: m <- matrix(c(0, 1, 1, 1, 1, 0, 0, 1, 1, 0, 0, 2, 1, 1, 2, 0), nrow = 4, ncol = 4) rownames(m) <- letters[1:4]; colnames(m) <- letters[1:4] > m a b c d a 0 1 1 1 b 1 0 0 1 c